home *** CD-ROM | disk | FTP | other *** search
/ Network CD 1 / Network CD.iso / amospd / 491-500 / apd500 / karl_roberts / interrupt-equalizers.amos / interrupt-equalizers.amosSourceCode < prev    next >
AMOS Source Code  |  1986-08-03  |  1KB  |  46 lines
  1. '*************************************** 
  2. '* 
  3. '* INNOVATIONS 1993  
  4. '* 
  5. '* Title : Interrupt equalizers
  6. '*   
  7. '* Code : Icky (Karl Roberts)
  8. '* 
  9. '* This uses the amal autotest system
  10. '*   
  11. '* NOTE :- Load some music here, and type in track play, or music 1  
  12. '* now sit back and watch the program do the rest
  13. '* Now your main routines can do some serious stuff, while 
  14. '* the equalizers just keep running in the background! 
  15. '* 
  16. '* load "df0:songname?"  or track load "df0:songname?",5   
  17. '* Track Play  
  18. '* Music 1 
  19. '* whichever one you use. Note the AMOS music system responds
  20. '* better to Music 1 so, try and use it if you can!    
  21. '* 
  22. _INTERRUPT_GRAPHIC_EQUALIZER
  23. Procedure _INTERRUPT_GRAPHIC_EQUALIZER
  24.    Screen Open 0,320,256,2,Lowres
  25.    Curs Off : Flash Off : Hide On : Cls 0 : Fade 8,$4
  26.    Double Buffer : Autoback 0
  27.    Colour 1,$F : Ink 1
  28.    Bar 0,0 To 50,70
  29.    Get Bob 0,1,0,0 To 50,70
  30.    Cls 0
  31.    A$=A$+"       AUtotest(L R1=Vu(R0); If R1=0 X Direct A)"
  32.    A$=A$+"A: L R2=R1; L X=R0*70+25; L Y=RA-R1; "
  33.    A$=A$+"       Move 0,R2,RB; W;"
  34.    Amreg(0)=258 : Amreg(1)=20
  35.    '* increase amreg(1) for slower speed, decrease for faster speed 
  36.    For N=0 To 3
  37.       Bob N,N*32,Amreg(0),1
  38.       Channel N To Bob N
  39.       Amal N,"Let R0="+Str$(N)+A$
  40.    Next N
  41.    Amal On 
  42.    Repeat : Until Fire(0)
  43.    Edit 
  44. '* after breaking out of the program, go back to direct mode,  
  45. '* the equalizers still keep going.......
  46. End Proc